Public Class adm_addmerchantconfirm
    Inherits System.Web.UI.Page
    ' Protected WithEvents TheHeader1 As adm_header

    Public aUserSession(13) As String
    'Public oUtils As utils

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        'TheHeader1.whichpage = 13
        'TheHeader1.pageid = "addmerchantconfirm"
        'TheHeader1.helpaid = ""
        'TheHeader1.iMenuLevel = -1
        'aUserSession = TheHeader1.security()
        ''TheHeader1.security(aUserSession)
        'TheHeader1.StartInterface(13)
        'TheHeader1.intTopNavLev = 1 '''aTopNav(0, 5) = 1
        'TheHeader1.webCont = BuildwebContext()


    End Sub
    'Private Function BuildwebContext() As String
    'Dim objMert As New MerchantMngt
    'Dim arrData(18) As String
    'Dim strTemp1, strTemp2, strHTML As String
    'Dim i As Integer
    ''Dim arrDatalist(18) As String


    'arrData = objMert.GetMerchantInfo(Request("viaKlixID"))
    'If Not IsNothing(arrData) Then
    '    strTemp1 = "<tr><td valign=""top""><font face=""arial"" size=""2"">"
    '    'Account ID :
    '    strTemp2 = "</font></td><td valign=""top""><font face=""arial"" size=""2""><b>"
    '    For i = 0 To 4
    '        If i = 0 Then
    '            strHTML = "<table cellspacing=""0"" cellpadding=""1"" border=""0"">"
    '            strHTML += "<tr><td colspan=""2""><font face=""arial"" size=""2""><br><br>"
    '            strHTML += "<b>Account Information</b></font><hr size=""1"" color=""black"" noshade></tr></td>"
    '            strHTML += strTemp1 & txtAcctInfo(0) & strTemp2 & " <b><%=SafeString(request(""viaKlixID""))%></b></font></td></tr>"
    '        Else
    '            strHTML += strTemp1 & txtAcctInfo(i) & strTemp2 & arrData(i) & "</b></font></td></tr>"
    '        End If
    '    Next
    '    For i = 0 To 11
    '        If i = 0 Then
    '            strHTML += "<tr><td colspan=""2""><font face=""arial"" size=""2""><br><br><b>Merchant Information</b></font><hr size=""1"" color=""black"" noshade></td></tr>"

    '            strHTML += strTemp1 & txtMertInfo(0) & strTemp2 & arrData(2) & "</b></font></td></tr>"
    '        Else

    '            strHTML += strTemp1 & txtAcctInfo(i) & strTemp2 & arrData(i) & "</b></font></td></tr>"
    '        End If
    '    Next
    'End If
    'strHTML += "</table>"
    ''<b><%=SafeString(request("viaKlixID"))%></b>
    ''</font>
    ''</td></tr>
    ''        oGetRsData = Server.CreateObject("viaMerchAccount.AdminMerchant")
    ''        oGetRsData.TerminalNumber = Request("TerminalNumber")
    ''        oGetRsData.DBConnectString = Application("DSN")

    ''        Rs = oGetRsData.AddMerchantConfirm(Request("viaKlixID"))
    ''        oGetRsData = Nothing
    ''        If Not Rs.EOF Then
    ''            CompanyID = SafeString(Rs("Company_ID"))
    ''            MerchantName = SafeString(Rs("Merchant_Name"))
    ''            AccountAlias = Safestring(Rs("Alias"))
    ''            AccountName = Safestring(Rs("ACCOUNT_NAME"))
    ''            CompanyName = Safestring(Rs("company_name"))
    ''            Address1 = SafeString(Rs("Address1"))
    ''            Address2 = SafeString(Rs("Address2"))
    ''            city = safestring(Rs("City"))
    ''            state = safestring(Rs("State"))
    ''            zip = safestring(Rs("zip"))
    ''            Contact_Name = SafeString(Rs("Contact_Name"))
    ''            Contact_Phone1 = SafeString(Rs("Contact_phone1"))
    ''            Contact_Phone2 = safestring(Rs("Contact_phone2"))
    ''            contact_Email = safestring(Rs("contact_Email"))
    ''            Active = SafeString(Rs("Active"))
    ''            MerchantEmail = SafeString(Rs("Terminal_Email"))
    ''            MerchantURL = SafeString(Rs("Merchant_URL"))
    ''            Pin = SafeString(Rs("Pin"))
    ''        End If
    ''%>
    'Return strHTML

    'End Function
    Private Function txtAcctInfo(ByVal i As Integer) As String
        Dim arrAcctInfo(5) As String
        arrAcctInfo(0) = "Account ID :"
        arrAcctInfo(1) = "Pin :"
        arrAcctInfo(2) = "System :"
        arrAcctInfo(3) = "Account Name :"
        arrAcctInfo(4) = "Account Alias :"
        Return arrAcctInfo(i)
    End Function

    Private Function txtMertInfo(ByVal index As Integer) As String
        Dim arrMertInfo(12) As String
        arrMertInfo(0) = "Merchant Name :"
        arrMertInfo(1) = "Address 1 :"
        arrMertInfo(2) = "Address 2 :"
        arrMertInfo(3) = "City :"
        arrMertInfo(4) = "State :"
        arrMertInfo(5) = "Zip :"
        arrMertInfo(6) = "Contact Name :"
        arrMertInfo(7) = "Contact Phone 1 :"
        arrMertInfo(8) = "Contact Phone 2 :"
        arrMertInfo(9) = "Contact E-mail :"
        arrMertInfo(10) = "Merchant URL :"
        arrMertInfo(11) = "Merchant E-mail :"
        Return arrMertInfo(index)


    End Function

End Class
